how to subset my data in R